-- Paquete_Suma
PACKAGE Paquete_Suma_Con_In_Out IS
   PROCEDURE Sumador (X : IN OUT Integer; Y: IN Integer);
END Paquete_Suma_Con_In_Out;


PACKAGE BODY Paquete_Suma_Con_In_Out IS
   A : Integer;
   B : Integer;
   C : Integer;

   PROCEDURE Sumador (X : IN OUT Integer; Y : IN Integer) IS
   BEGIN
      X := X + Y;
      Put ("X");
   END Sumador;

BEGIN
   A := 1;
   B := 2;
   Sumador (A, B);
   Put ("A deberia valer 3");
   Put (A);
END Paquete_Suma_Con_In_Out;


